home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 September & October / rerun-1989-09-10.d64 / menu 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  75 lines
  1. 10 rem new rerun c64 automenu
  2. 20 rem lou wallace
  3. 40 poke53280,0:poke53281,0:printchr$(142)
  4. 50 dr=peek(186):v=54273
  5. 60 ch$="abcdefghijklmnopqrstuvwxyz"
  6. 70 dr$=right$(str$(dr),len(str$(dr))-1)
  7. 80 dim n$(255),d$(255):cx=54272:print "[147]"
  8. 90 read f
  9. 100 for i=1 to f:read n$(i),d$(i)
  10. 110 if len(n$(i))>13 then n$(i)=left$(n$(i),13)+"*"
  11. 120 next
  12. 130 gosub 400
  13. 140 rem - print first column of names -
  14. 150 d$=""
  15. 160 for i=1 to f/2
  16. 170 print d$;
  17. 180 print""mid$(ch$,i,1)" "n$(i)
  18. 190 gosub 590:d$=d$+""
  19. 200 next
  20. 210 rem -- then 2nd column of names ---
  21. 220 d$=""
  22. 230 for i=(f/2+1) to f
  23. 240 print d$;
  24. 250 printspc(19)""mid$(ch$,i,1)" "n$(i)
  25. 260 gosub 590:d$=d$+""
  26. 270 next
  27. 280 getm$:ifm$=""then 280
  28. 290 ifm$<"a"orm$>chr$(64+f)then280
  29. 300 p=asc(m$)-64:print"[147]"
  30. 310 if d$(p)<>"run" then 340
  31. 320 iflen(n$(p))>12thenn$(p)=left$(n$(p),12)+"*"
  32. 330 print"load"chr$(34)n$(p)chr$(34)","dr$"[145][145][145]":goto360
  33. 340 iflen(n$(p))>15thenn$(p)=left$(n$(p),16)+"*"
  34. 350 print"load"chr$(34)n$(p)chr$(34)","dr$",1[145][145][145]"
  35. 360 a$=d$(p)
  36. 370 a$=a$+chr$(13)
  37. 380 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  38. 390 new
  39. 400 poke 53280,0:poke 53281,0
  40. 410 ov=peek(53265)
  41. 420 poke 53265,peek(53265)and 247
  42. 430 poke 53265,(peek(53265)and248)+7
  43. 440 pr$="[209][165]                                    [167][209]"
  44. 450 tp$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
  45. 460 md$="[209][165][194]                                  [194][167][209]"
  46. 470 bt$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
  47. 480 hd$="september/october 1989 rerun"
  48. 490 print"[147]";
  49. 500 print tp$;:gosub 590
  50. 510 for i=1 to 2:print md$;:gosub 590:next
  51. 520 print"[145]";hd$;:gosub 590
  52. 530 print:print"[145]";
  53. 540 for i=1 to 1:print md$;:gosub 590:next
  54. 550 print bt$;:gosub 590
  55. 560 for i=1 to 19:print pr$;:gosub 590:next
  56. 570 poke 53265,27
  57. 580 return
  58. 590 rem sound routine here
  59. 600 poke v+23,15:poke v+4,9:poke v+5,0:poke v,1:poke v+3,32:poke v+3,33
  60. 610 return
  61. 1000 rem file list
  62. 1010 rem first entry is the number of programs on this disk
  63. 1020 rem followed by each filename
  64. 1030 rem second data item is run or sysxxxxx
  65. 1040 rem run if file is basic and sys xxxxx if ml
  66. 1050 data 8
  67. 1060 data geoslides,run
  68. 1070 data calendar 64/128,run
  69. 1080 data word wonder,run
  70. 1090 data gantry,run
  71. 1100 data quikmat,run
  72. 1110 data maze run,run
  73. 1120 data functional keys,run
  74. 1125 data customizer,run
  75.